;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(DEFUN C:ATWID ()
  (PROGN
    (IF ureal NIL (LOAD "ureal" "\nFile UREAL.LSP not loaded! "))
    (SETQ attrwidth (ureal 1 "" "New attribute width factor" (IF attrwidth attrwidth 1.0)))      
  )
  (WHILE (AND
           (SETQ attrename (CAR(NENTSELP)))
           (EQ (TYPE attrename) 'ENAME)
           (EQ (CDR (ASSOC 0 (SETQ attrent (ENTGET attrename)))) "ATTRIB")
         )
    (PROGN
      (SETQ attrent (SUBST (CONS 41 attrwidth)(ASSOC 41 attrent)attrent))
      (ENTMOD attrent)
      (ENTUPD attrename)
    )
  )
  (PROGN
    (PRINC "\nNo ATTRIBUTE selected! ")
    (PRINC)
  )
  (PRINC)
)